home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / make / icmake-6.000 / icmake-6 / icmake / comp / optintsp.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-02-08  |  708 b   |  29 lines
  1. /*
  2.                              O P T I N T S P . C
  3.  
  4. */
  5.  
  6. #include "iccomp.h"
  7.  
  8. ESTRUC_ *optint_special(type, larg, rarg)
  9.     E_TYPE_
  10.         type;
  11.     ESTRUC_
  12.         *larg,
  13.         *rarg;
  14. {
  15.     ESTRUC_
  16.         tmp;
  17.  
  18.     etoc(larg);                             /* arg to stack */
  19.  
  20.     if (!test_type(larg, e_int))            /* no first int arg */
  21.     {                                       /* prefix the first argument */
  22.         rarg = insertarg(larg, rarg);
  23.                                             /* make 0-argument */
  24.         tmp = stackframe(e_int | e_const);
  25.         larg = &tmp;                        /* larg points to inserted arg */
  26.     }
  27.  
  28.     return (specials(type, insertarg(larg, rarg)));
  29. }